﻿Public Class FrmBase

    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        Me.Close()
    End Sub

    Protected Overridable Sub FrmPadre_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Gestion de Productos y Servicios...." & Now.Date

    End Sub
End Class